home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 11.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 73 74 65 76 65 40 61 |piled by| steve@a|
|00000020| 6c 74 61 69 72 2e 78 65 | 6d 61 63 73 2e 6f 72 67 |ltair.xe|macs.org|
|00000030| 20 6f 6e 20 54 68 75 20 | 4e 6f 76 20 32 30 20 31 | on Thu |Nov 20 1|
|00000040| 37 3a 35 35 3a 34 38 20 | 31 39 39 37 0a 3b 3b 3b |7:55:48 |1997.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 68 6f 6d 65 | from fi|le /home|
|00000060| 2f 78 65 6d 61 63 73 2f | 32 30 2e 33 2f 78 65 6d |/xemacs/|20.3/xem|
|00000070| 61 63 73 2d 32 30 2e 33 | 2f 6c 69 73 70 2f 6d 75 |acs-20.3|/lisp/mu|
|00000080| 6c 65 2f 6d 75 6c 65 2d | 6b 65 79 62 6f 61 72 64 |le/mule-|keyboard|
|00000090| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|000000a0| 72 73 69 6f 6e 20 32 30 | 2e 33 20 22 56 61 74 69 |rsion 20|.3 "Vati|
|000000b0| 63 61 6e 20 43 69 74 79 | 22 20 58 45 6d 61 63 73 |can City|" XEmacs|
|000000c0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 | Lucid.|.;;; byt|
|000000d0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000e0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|000000f0| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000100| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000110| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000120| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000130| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000140| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000150| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000160| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000170| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000180| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001a0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 | (st|ring-les|
|000001b0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001c0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|. (er|
|000001d0| 72 6f 72 20 22 60 6d 75 | 6c 65 2d 6b 65 79 62 6f |ror "`mu|le-keybo|
|000001e0| 61 72 64 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ard.el' |was comp|
|000001f0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000200| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000210| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000220| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000230| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000240| 6c 29 29 0a 0a 0a 23 40 | 38 30 20 49 66 20 6e 6f |l))...#@|80 If no|
|00000250| 6e 2d 6e 69 6c 2c 20 22 | 45 53 43 20 2c 20 46 65 |n-nil, "|ESC , Fe|
|00000260| 22 20 61 6e 64 20 22 45 | 53 43 20 2d 20 46 65 22 |" and "E|SC - Fe"|
|00000270| 20 61 72 65 20 75 73 65 | 64 20 66 6f 72 20 69 6e | are use|d for in|
|00000280| 70 75 74 74 69 6e 67 0a | 4c 61 74 69 6e 20 63 68 |putting.|Latin ch|
|00000290| 61 72 61 63 74 65 72 73 | 2e 1f 0a 28 64 65 66 76 |aracters|...(defv|
|000002a0| 61 72 20 6b 65 79 62 6f | 61 72 64 2d 61 6c 6c 6f |ar keybo|ard-allo|
|000002b0| 77 2d 6c 61 74 69 6e 2d | 69 6e 70 75 74 20 6e 69 |w-latin-|input ni|
|000002c0| 6c 20 28 23 24 20 2e 20 | 35 38 37 29 29 0a 23 40 |l (#$ . |587)).#@|
|000002d0| 36 30 20 43 68 61 72 61 | 63 74 65 72 20 62 75 66 |60 Chara|cter buf|
|000002e0| 66 65 72 20 66 6f 72 20 | 74 68 65 20 66 69 72 73 |fer for |the firs|
|000002f0| 74 20 62 79 74 65 20 6f | 66 20 74 77 6f 2d 62 79 |t byte o|f two-by|
|00000300| 74 65 20 63 68 61 72 61 | 63 74 65 72 2e 1f 0a 28 |te chara|cter...(|
|00000310| 64 65 66 76 61 72 20 5f | 6b 65 79 62 6f 61 72 64 |defvar _|keyboard|
|00000320| 2d 66 69 72 73 74 2d 62 | 79 74 65 5f 20 6e 69 6c |-first-b|yte_ nil|
|00000330| 20 28 23 24 20 2e 20 37 | 32 33 29 29 0a 23 40 33 | (#$ . 7|23)).#@3|
|00000340| 36 20 46 6c 61 67 20 74 | 6f 20 69 6e 64 69 63 61 |6 Flag t|o indica|
|00000350| 74 65 20 53 69 6e 67 6c | 65 20 53 68 69 66 74 20 |te Singl|e Shift |
|00000360| 53 53 32 2e 1f 0a 28 64 | 65 66 76 61 72 20 5f 6b |SS2...(d|efvar _k|
|00000370| 65 79 62 6f 61 72 64 2d | 53 53 32 5f 20 6e 69 6c |eyboard-|SS2_ nil|
|00000380| 20 28 23 24 20 2e 20 38 | 33 34 29 29 0a 23 40 33 | (#$ . 8|34)).#@3|
|00000390| 36 20 46 6c 61 67 20 74 | 6f 20 69 6e 64 69 63 61 |6 Flag t|o indica|
|000003a0| 74 65 20 53 69 6e 67 6c | 65 20 53 68 69 66 74 20 |te Singl|e Shift |
|000003b0| 53 53 33 2e 1f 0a 28 64 | 65 66 76 61 72 20 5f 6b |SS3...(d|efvar _k|
|000003c0| 65 79 62 6f 61 72 64 2d | 53 53 33 5f 20 6e 69 6c |eyboard-|SS3_ nil|
|000003d0| 20 28 23 24 20 2e 20 39 | 31 34 29 29 0a 23 40 32 | (#$ . 9|14)).#@2|
|000003e0| 31 20 53 61 76 65 64 20 | 6c 6f 63 61 6c 20 6b 65 |1 Saved |local ke|
|000003f0| 79 6d 61 70 2e 1f 0a 28 | 64 65 66 76 61 72 20 5f |ymap...(|defvar _|
|00000400| 6b 65 79 62 6f 61 72 64 | 2d 73 61 76 65 64 2d 6c |keyboard|-saved-l|
|00000410| 6f 63 61 6c 2d 6d 61 70 | 5f 20 6e 69 6c 20 28 23 |ocal-map|_ nil (#|
|00000420| 24 20 2e 20 39 39 34 29 | 29 0a 23 40 33 31 20 53 |$ . 994)|).#@31 S|
|00000430| 61 76 65 64 20 73 69 6e | 67 6c 65 20 73 68 69 66 |aved sin|gle shif|
|00000440| 74 20 6c 6f 63 61 6c 20 | 6d 61 70 2e 1f 0a 28 64 |t local |map...(d|
|00000450| 65 66 76 61 72 20 5f 73 | 61 76 65 64 2d 6c 6f 63 |efvar _s|aved-loc|
|00000460| 61 6c 2d 6d 61 70 2d 73 | 69 6e 67 6c 65 2d 73 68 |al-map-s|ingle-sh|
|00000470| 69 66 74 5f 20 6e 69 6c | 20 28 23 24 20 2e 20 31 |ift_ nil| (#$ . 1|
|00000480| 30 37 31 29 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |071)).(b|yte-code|
|00000490| 20 22 c0 c1 21 ac 82 c2 | 11 c1 0b 42 13 c0 c4 21 | "..!...|...B...!|
|000004a0| ac 82 c5 14 c4 0b 42 13 | c0 c6 21 ac 83 c5 16 06 |......B.|..!.....|
|000004b0| c6 0b 42 13 c0 c7 21 ac | 83 c5 16 07 c7 0b 42 13 |..B...!.|......B.|
|000004c0| c5 87 22 20 5b 62 6f 75 | 6e 64 70 20 5f 63 75 72 |.." [bou|ndp _cur|
|000004d0| 72 65 6e 74 2d 67 30 5f | 20 30 20 63 75 72 72 65 |rent-g0_| 0 curre|
|000004e0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 5f 63 75 |nt-load-|list _cu|
|000004f0| 72 72 65 6e 74 2d 67 31 | 5f 20 6e 69 6c 20 5f 63 |rrent-g1|_ nil _c|
|00000500| 75 72 72 65 6e 74 2d 67 | 32 5f 20 5f 63 75 72 72 |urrent-g|2_ _curr|
|00000510| 65 6e 74 2d 67 33 5f 5d | 20 32 29 0a 23 40 35 37 |ent-g3_]| 2).#@57|
|00000520| 20 4c 6f 63 61 6c 20 6b | 65 79 6d 61 70 20 75 73 | Local k|eymap us|
|00000530| 65 64 20 77 68 69 6c 65 | 20 69 6e 70 75 74 69 6e |ed while| inputin|
|00000540| 67 20 49 53 4f 32 30 32 | 32 20 63 6f 64 65 20 64 |g ISO202|2 code d|
|00000550| 69 72 65 63 74 6c 79 2e | 1f 0a 28 64 65 66 63 6f |irectly.|..(defco|
|00000560| 6e 73 74 20 6c 6f 63 61 | 6c 2d 6d 61 70 2d 69 73 |nst loca|l-map-is|
|00000570| 6f 20 6e 69 6c 20 28 23 | 24 20 2e 20 31 33 31 33 |o nil (#|$ . 1313|
|00000580| 29 29 0a 23 40 35 39 20 | 4c 6f 63 61 6c 20 6b 65 |)).#@59 |Local ke|
|00000590| 79 6d 61 70 20 75 73 65 | 64 20 77 68 69 6c 65 20 |ymap use|d while |
|000005a0| 69 6e 70 75 74 69 6e 67 | 20 53 68 69 66 74 2d 4a |inputing| Shift-J|
|000005b0| 49 53 20 63 6f 64 65 20 | 64 69 72 65 63 74 6c 79 |IS code |directly|
|000005c0| 2e 1f 0a 28 64 65 66 63 | 6f 6e 73 74 20 6c 6f 63 |...(defc|onst loc|
|000005d0| 61 6c 2d 6d 61 70 2d 73 | 68 69 66 74 2d 6a 69 73 |al-map-s|hift-jis|
|000005e0| 20 6e 69 6c 20 28 23 24 | 20 2e 20 31 34 31 36 29 | nil (#$| . 1416)|
|000005f0| 29 0a 23 40 35 34 20 4c | 6f 63 61 6c 20 6b 65 79 |).#@54 L|ocal key|
|00000600| 6d 61 70 20 75 73 65 64 | 20 77 68 69 6c 65 20 69 |map used| while i|
|00000610| 6e 70 75 74 69 6e 67 20 | 42 69 67 35 20 63 6f 64 |nputing |Big5 cod|
|00000620| 65 20 64 69 72 65 63 74 | 6c 79 2e 1f 0a 28 64 65 |e direct|ly...(de|
|00000630| 66 63 6f 6e 73 74 20 6c | 6f 63 61 6c 2d 6d 61 70 |fconst l|ocal-map|
|00000640| 2d 62 69 67 35 20 6e 69 | 6c 20 28 23 24 20 2e 20 |-big5 ni|l (#$ . |
|00000650| 31 35 32 37 29 29 0a 23 | 40 33 39 20 4b 65 79 73 |1527)).#|@39 Keys|
|00000660| 20 74 6f 20 64 65 73 69 | 67 6e 61 74 65 20 39 34 | to desi|gnate 94|
|00000670| 6e 20 6f 72 20 39 36 6e | 20 63 68 61 72 73 65 74 |n or 96n| charset|
|00000680| 2e 1f 0a 28 64 65 66 63 | 6f 6e 73 74 20 65 73 63 |...(defc|onst esc|
|00000690| 2d 64 6f 6c 2d 6d 61 70 | 20 6e 69 6c 20 28 23 24 |-dol-map| nil (#$|
|000006a0| 20 2e 20 31 36 32 38 29 | 29 0a 23 40 33 37 20 4b | . 1628)|).#@37 K|
|000006b0| 65 79 73 20 74 6f 20 64 | 65 73 69 67 6e 61 74 65 |eys to d|esignate|
|000006c0| 20 39 34 20 63 68 61 72 | 73 65 74 20 74 6f 20 47 | 94 char|set to G|
|000006d0| 4c 2e 1f 0a 28 64 65 66 | 63 6f 6e 73 74 20 65 73 |L...(def|const es|
|000006e0| 63 2d 6f 70 65 6e 70 61 | 72 2d 6d 61 70 20 6e 69 |c-openpa|r-map ni|
|000006f0| 6c 20 28 23 24 20 2e 20 | 31 37 31 31 29 29 0a 23 |l (#$ . |1711)).#|
|00000700| 40 33 37 20 4b 65 79 73 | 20 74 6f 20 64 65 73 69 |@37 Keys| to desi|
|00000710| 67 6e 61 74 65 20 39 34 | 20 63 68 61 72 73 65 74 |gnate 94| charset|
|00000720| 20 74 6f 20 47 52 2e 1f | 0a 28 64 65 66 63 6f 6e | to GR..|.(defcon|
|00000730| 73 74 20 65 73 63 2d 63 | 6c 6f 73 65 70 61 72 2d |st esc-c|losepar-|
|00000740| 6d 61 70 20 6e 69 6c 20 | 28 23 24 20 2e 20 31 37 |map nil |(#$ . 17|
|00000750| 39 36 29 29 0a 23 40 33 | 37 20 4b 65 79 73 20 74 |96)).#@3|7 Keys t|
|00000760| 6f 20 64 65 73 69 67 6e | 61 74 65 20 39 36 20 63 |o design|ate 96 c|
|00000770| 68 61 72 73 65 74 20 74 | 6f 20 47 4c 2e 1f 0a 28 |harset t|o GL...(|
|00000780| 64 65 66 63 6f 6e 73 74 | 20 65 73 63 2d 63 6f 6d |defconst| esc-com|
|00000790| 6d 61 2d 6d 61 70 20 6e | 69 6c 20 28 23 24 20 2e |ma-map n|il (#$ .|
|000007a0| 20 31 38 38 32 29 29 0a | 23 40 33 37 20 4b 65 79 | 1882)).|#@37 Key|
|000007b0| 73 20 74 6f 20 64 65 73 | 69 67 6e 61 74 65 20 39 |s to des|ignate 9|
|000007c0| 36 20 63 68 61 72 73 65 | 74 20 74 6f 20 47 52 2e |6 charse|t to GR.|
|000007d0| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 65 73 63 2d |..(defco|nst esc-|
|000007e0| 6d 69 6e 75 73 2d 6d 61 | 70 20 6e 69 6c 20 28 23 |minus-ma|p nil (#|
|000007f0| 24 20 2e 20 31 39 36 35 | 29 29 0a 23 40 33 38 20 |$ . 1965|)).#@38 |
|00000800| 4b 65 79 73 20 74 6f 20 | 64 65 73 69 67 6e 61 74 |Keys to |designat|
|00000810| 65 20 39 34 6e 20 63 68 | 61 72 73 65 74 20 74 6f |e 94n ch|arset to|
|00000820| 20 47 4c 2e 1f 0a 28 64 | 65 66 63 6f 6e 73 74 20 | GL...(d|efconst |
|00000830| 65 73 63 2d 64 6f 6c 2d | 6f 70 65 6e 70 61 72 2d |esc-dol-|openpar-|
|00000840| 6d 61 70 20 6e 69 6c 20 | 28 23 24 20 2e 20 32 30 |map nil |(#$ . 20|
|00000850| 34 38 29 29 0a 23 40 33 | 38 20 4b 65 79 73 20 74 |48)).#@3|8 Keys t|
|00000860| 6f 20 64 65 73 69 67 6e | 61 74 65 20 39 34 6e 20 |o design|ate 94n |
|00000870| 63 68 61 72 73 65 74 20 | 74 6f 20 47 52 2e 1f 0a |charset |to GR...|
|00000880| 28 64 65 66 63 6f 6e 73 | 74 20 65 73 63 2d 64 6f |(defcons|t esc-do|
|00000890| 6c 2d 63 6c 6f 73 65 70 | 61 72 2d 6d 61 70 20 6e |l-closep|ar-map n|
|000008a0| 69 6c 20 28 23 24 20 2e | 20 32 31 33 38 29 29 0a |il (#$ .| 2138)).|
|000008b0| 23 40 33 38 20 4b 65 79 | 73 20 74 6f 20 64 65 73 |#@38 Key|s to des|
|000008c0| 69 67 6e 61 74 65 20 39 | 36 6e 20 63 68 61 72 73 |ignate 9|6n chars|
|000008d0| 65 74 20 74 6f 20 47 4c | 2e 1f 0a 28 64 65 66 63 |et to GL|...(defc|
|000008e0| 6f 6e 73 74 20 65 73 63 | 2d 64 6f 6c 2d 63 6f 6d |onst esc|-dol-com|
|000008f0| 6d 61 2d 6d 61 70 20 6e | 69 6c 20 28 23 24 20 2e |ma-map n|il (#$ .|
|00000900| 20 32 32 32 39 29 29 0a | 23 40 33 38 20 4b 65 79 | 2229)).|#@38 Key|
|00000910| 73 20 74 6f 20 64 65 73 | 69 67 6e 61 74 65 20 39 |s to des|ignate 9|
|00000920| 36 6e 20 63 68 61 72 73 | 65 74 20 74 6f 20 47 52 |6n chars|et to GR|
|00000930| 2e 1f 0a 28 64 65 66 63 | 6f 6e 73 74 20 65 73 63 |...(defc|onst esc|
|00000940| 2d 64 6f 6c 2d 6d 69 6e | 75 73 2d 6d 61 70 20 6e |-dol-min|us-map n|
|00000950| 69 6c 20 28 23 24 20 2e | 20 32 33 31 37 29 29 0a |il (#$ .| 2317)).|
|00000960| 23 40 37 34 20 53 65 74 | 20 76 61 72 69 61 62 6c |#@74 Set| variabl|
|00000970| 65 20 6b 65 79 62 6f 61 | 72 64 2d 63 6f 64 69 6e |e keyboa|rd-codin|
|00000980| 67 2d 73 79 73 74 65 6d | 20 74 6f 20 43 4f 44 45 |g-system| to CODE|
|00000990| 53 59 53 20 61 6e 64 20 | 6d 6f 64 69 66 79 20 6b |SYS and |modify k|
|000009a0| 65 79 6d 61 70 20 66 6f | 72 20 69 74 2e 1f 0a 28 |eymap fo|r it...(|
|000009b0| 64 65 66 61 6c 69 61 73 | 20 27 73 65 74 2d 6b 65 |defalias| 'set-ke|
|000009c0| 79 62 6f 61 72 64 2d 63 | 6f 64 69 6e 67 2d 73 79 |yboard-c|oding-sy|
|000009d0| 73 74 65 6d 20 23 5b 28 | 63 6f 64 65 73 79 73 29 |stem #[(|codesys)|
|000009e0| 20 22 c0 09 21 89 1a c3 | 61 ab 84 c4 20 aa 97 5c | "..!...|a... ..\|
|000009f0| 6e c5 61 ab 85 c6 09 21 | aa 8d 5c 6e c7 61 ab 84 |n.a....!|..\n.a..|
|00000a00| c8 20 aa 84 c9 ca 09 5c | 22 29 87 22 20 5b 63 6f |. .....\|")." [co|
|00000a10| 64 69 6e 67 2d 73 79 73 | 74 65 6d 2d 74 79 70 65 |ding-sys|tem-type|
|00000a20| 20 63 6f 64 65 73 79 73 | 20 74 79 70 65 20 73 68 | codesys| type sh|
|00000a30| 69 66 74 2d 6a 69 73 20 | 73 65 74 2d 6b 65 79 62 |ift-jis |set-keyb|
|00000a40| 6f 61 72 64 2d 63 6f 64 | 69 6e 67 2d 73 79 73 74 |oard-cod|ing-syst|
|00000a50| 65 6d 2d 73 68 69 66 74 | 2d 6a 69 73 20 69 73 6f |em-shift|-jis iso|
|00000a60| 32 30 32 32 20 73 65 74 | 2d 6b 65 79 62 6f 61 72 |2022 set|-keyboar|
|00000a70| 64 2d 63 6f 64 69 6e 67 | 2d 73 79 73 74 65 6d 2d |d-coding|-system-|
|00000a80| 69 73 6f 32 30 32 32 20 | 62 69 67 35 20 73 65 74 |iso2022 |big5 set|
|00000a90| 2d 6b 65 79 62 6f 61 72 | 64 2d 63 6f 64 69 6e 67 |-keyboar|d-coding|
|00000aa0| 2d 73 79 73 74 65 6d 2d | 62 69 67 35 20 65 72 72 |-system-|big5 err|
|00000ab0| 6f 72 20 22 44 69 72 65 | 63 74 20 69 6e 70 75 74 |or "Dire|ct input|
|00000ac0| 20 6f 66 20 63 6f 64 65 | 20 25 73 20 69 73 20 6e | of code| %s is n|
|00000ad0| 6f 74 20 73 75 70 70 6f | 72 74 65 64 2e 22 5d 20 |ot suppo|rted."] |
|00000ae0| 34 20 28 23 24 20 2e 20 | 32 34 30 35 29 20 22 7a |4 (#$ . |2405) "z|
|00000af0| 4b 65 79 62 6f 61 72 64 | 2d 63 6f 64 69 6e 67 2d |Keyboard|-coding-|
|00000b00| 73 79 73 74 65 6d 3a 20 | 22 5d 29 0a 28 64 65 66 |system: |"]).(def|
|00000b10| 61 6c 69 61 73 20 27 6b | 65 79 62 6f 61 72 64 2d |alias 'k|eyboard-|
|00000b20| 64 65 66 69 6e 65 2d 6b | 65 79 20 23 5b 28 6d 61 |define-k|ey #[(ma|
|00000b30| 70 20 6b 65 79 20 63 6f | 6d 6d 61 6e 64 29 20 22 |p key co|mmand) "|
|00000b40| c0 09 c2 0b 21 0c c5 24 | 87 22 20 5b 64 65 66 69 |....!..$|." [defi|
|00000b50| 6e 65 2d 6b 65 79 20 6d | 61 70 20 63 68 61 72 2d |ne-key m|ap char-|
|00000b60| 74 6f 2d 73 74 72 69 6e | 67 20 6b 65 79 20 63 6f |to-strin|g key co|
|00000b70| 6d 6d 61 6e 64 20 74 5d | 20 35 5d 29 0a 28 62 79 |mmand t]| 5]).(by|
|00000b80| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4e c2 73 ac 85 |te-code |"..N.s..|
|00000b90| c3 c4 c0 5c 22 88 c5 c0 | c1 c6 23 87 22 20 5b 6b |...\"...|..#." [k|
|00000ba0| 65 79 62 6f 61 72 64 2d | 64 65 66 69 6e 65 2d 6b |eyboard-|define-k|
|00000bb0| 65 79 20 62 79 74 65 2d | 6f 70 74 69 6d 69 7a 65 |ey byte-|optimize|
|00000bc0| 72 20 28 6e 69 6c 20 62 | 79 74 65 2d 63 6f 6d 70 |r (nil b|yte-comp|
|00000bd0| 69 6c 65 2d 69 6e 6c 69 | 6e 65 2d 65 78 70 61 6e |ile-inli|ne-expan|
|00000be0| 64 29 20 65 72 72 6f 72 | 20 22 25 73 20 61 6c 72 |d) error| "%s alr|
|00000bf0| 65 61 64 79 20 68 61 73 | 20 61 20 62 79 74 65 2d |eady has| a byte-|
|00000c00| 6f 70 74 69 6d 69 7a 65 | 72 2c 20 63 61 6e 27 74 |optimize|r, can't|
|00000c10| 20 6d 61 6b 65 20 69 74 | 20 69 6e 6c 69 6e 65 22 | make it| inline"|
|00000c20| 20 70 75 74 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c | put byt|e-compil|
|00000c30| 65 2d 69 6e 6c 69 6e 65 | 2d 65 78 70 61 6e 64 5d |e-inline|-expand]|
|00000c40| 20 34 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6b | 4).(def|alias 'k|
|00000c50| 65 79 62 6f 61 72 64 2d | 73 65 74 2d 69 6e 70 75 |eyboard-|set-inpu|
|00000c60| 74 2d 6d 6f 64 65 20 23 | 5b 28 76 61 6c 75 65 29 |t-mode #|[(value)|
|00000c70| 20 22 c0 20 89 19 41 41 | 5c 6e a0 88 c3 c4 09 5c | ". ..AA|\n.....\|
|00000c80| 22 29 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 69 6e |")." [cu|rrent-in|
|00000c90| 70 75 74 2d 6d 6f 64 65 | 20 6d 6f 64 65 20 76 61 |put-mode| mode va|
|00000ca0| 6c 75 65 20 61 70 70 6c | 79 20 73 65 74 2d 69 6e |lue appl|y set-in|
|00000cb0| 70 75 74 2d 6d 6f 64 65 | 5d 20 34 5d 29 0a 28 64 |put-mode|] 4]).(d|
|00000cc0| 65 66 61 6c 69 61 73 20 | 27 6b 65 79 62 6f 61 72 |efalias |'keyboar|
|00000cd0| 64 2d 73 65 6c 65 63 74 | 2d 6b 65 79 6d 61 70 20 |d-select|-keymap |
|00000ce0| 23 5b 28 26 72 65 73 74 | 20 6d 61 70 73 29 20 22 |#[(&rest| maps) "|
|00000cf0| c0 09 21 5c 6e 38 ae 83 | c3 c4 21 87 22 20 5b 67 |..!\n8..|..!." [g|
|00000d00| 65 74 2d 63 6f 64 65 2d | 74 79 70 65 20 6b 65 79 |et-code-|type key|
|00000d10| 62 6f 61 72 64 2d 63 6f | 64 69 6e 67 2d 73 79 73 |board-co|ding-sys|
|00000d20| 74 65 6d 20 6d 61 70 73 | 20 65 72 72 6f 72 20 22 |tem maps| error "|
|00000d30| 69 6e 76 61 6c 69 64 20 | 6b 65 79 62 6f 61 72 64 |invalid |keyboard|
|00000d40| 2d 63 6f 64 69 6e 67 2d | 73 79 73 74 65 6d 22 5d |-coding-|system"]|
|00000d50| 20 32 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 2]).(de|falias '|
|00000d60| 6b 65 79 62 6f 61 72 64 | 2d 73 65 6c 66 2d 69 6e |keyboard|-self-in|
|00000d70| 73 65 72 74 2d 64 6f 2d | 69 6e 73 65 72 74 20 23 |sert-do-|insert #|
|00000d80| 5b 28 63 68 61 72 29 20 | 22 c0 09 21 88 c2 20 87 |[(char) |"..!.. .|
|00000d90| 22 20 5b 73 65 6c 66 2d | 69 6e 73 65 72 74 2d 69 |" [self-|insert-i|
|00000da0| 6e 74 65 72 6e 61 6c 20 | 63 68 61 72 20 63 68 65 |nternal |char che|
|00000db0| 63 6b 2d 61 75 74 6f 2d | 66 69 6c 6c 5d 20 32 5d |ck-auto-|fill] 2]|
|00000dc0| 29 0a 28 70 75 74 20 27 | 6b 65 79 62 6f 61 72 64 |).(put '|keyboard|
|00000dd0| 2d 73 65 6c 66 2d 69 6e | 73 65 72 74 2d 64 6f 2d |-self-in|sert-do-|
|00000de0| 69 6e 73 65 72 74 20 27 | 70 65 6e 64 69 6e 67 2d |insert '|pending-|
|00000df0| 64 65 6c 65 74 65 20 74 | 29 0a 28 64 65 66 61 6c |delete t|).(defal|
|00000e00| 69 61 73 20 27 6b 65 79 | 62 6f 61 72 64 2d 75 73 |ias 'key|board-us|
|00000e10| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 2d 64 6f 2d 69 |e-local-|map-do-i|
|00000e20| 6e 73 65 72 74 20 23 5b | 28 6d 61 70 29 20 22 c0 |nsert #[|(map) ".|
|00000e30| 09 21 87 22 20 5b 75 73 | 65 2d 6c 6f 63 61 6c 2d |.!." [us|e-local-|
|00000e40| 6d 61 70 20 6d 61 70 5d | 20 32 5d 29 0a 28 64 65 |map map]| 2]).(de|
|00000e50| 66 61 6c 69 61 73 20 27 | 6b 65 79 62 6f 61 72 64 |falias '|keyboard|
|00000e60| 2d 63 75 72 72 65 6e 74 | 2d 6c 6f 63 61 6c 2d 6d |-current|-local-m|
|00000e70| 61 70 2d 64 6f 2d 69 6e | 73 65 72 74 20 23 5b 6e |ap-do-in|sert #[n|
|00000e80| 69 6c 20 22 c0 20 87 22 | 20 5b 63 75 72 72 65 6e |il ". ."| [curren|
|00000e90| 74 2d 6c 6f 63 61 6c 2d | 6d 61 70 5d 20 31 5d 29 |t-local-|map] 1])|
|00000ea0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6b 65 79 62 |.(defali|as 'keyb|
|00000eb0| 6f 61 72 64 2d 6c 6f 63 | 61 6c 2d 6d 61 70 2d 64 |oard-loc|al-map-d|
|00000ec0| 6f 2d 69 6e 73 65 72 74 | 20 23 5b 6e 69 6c 20 22 |o-insert| #[nil "|
|00000ed0| c0 c1 5c 6e 0b 0c 24 87 | 22 20 5b 6b 65 79 62 6f |..\n..$.|" [keybo|
|00000ee0| 61 72 64 2d 73 65 6c 65 | 63 74 2d 6b 65 79 6d 61 |ard-sele|ct-keyma|
|00000ef0| 70 20 6e 69 6c 20 6c 6f | 63 61 6c 2d 6d 61 70 2d |p nil lo|cal-map-|
|00000f00| 73 68 69 66 74 2d 6a 69 | 73 20 6c 6f 63 61 6c 2d |shift-ji|s local-|
|00000f10| 6d 61 70 2d 69 73 6f 20 | 6c 6f 63 61 6c 2d 6d 61 |map-iso |local-ma|
|00000f20| 70 2d 62 69 67 35 5d 20 | 35 5d 29 0a 28 62 79 74 |p-big5] |5]).(byt|
|00000f30| 65 2d 63 6f 64 65 20 22 | c0 11 c1 5c 6e 42 12 c3 |e-code "|...\nB..|
|00000f40| 14 c4 5c 6e 42 12 c5 16 | 06 c6 5c 6e 42 12 c7 16 |..\nB...|..\nB...|
|00000f50| 08 c8 5c 6e 42 12 c0 87 | 22 20 5b 6b 65 79 62 6f |..\nB...|" [keybo|
|00000f60| 61 72 64 2d 73 65 6c 66 | 2d 69 6e 73 65 72 74 2d |ard-self|-insert-|
|00000f70| 64 6f 2d 69 6e 73 65 72 | 74 20 6b 65 79 62 6f 61 |do-inser|t keyboa|
|00000f80| 72 64 2d 73 65 6c 66 2d | 69 6e 73 65 72 74 2d 66 |rd-self-|insert-f|
|00000f90| 75 6e 63 74 69 6f 6e 20 | 63 75 72 72 65 6e 74 2d |unction |current-|
|00000fa0| 6c 6f 61 64 2d 6c 69 73 | 74 20 6b 65 79 62 6f 61 |load-lis|t keyboa|
|00000fb0| 72 64 2d 75 73 65 2d 6c | 6f 63 61 6c 2d 6d 61 70 |rd-use-l|ocal-map|
|00000fc0| 2d 64 6f 2d 69 6e 73 65 | 72 74 20 6b 65 79 62 6f |-do-inse|rt keybo|
|00000fd0| 61 72 64 2d 75 73 65 2d | 6c 6f 63 61 6c 2d 6d 61 |ard-use-|local-ma|
|00000fe0| 70 2d 66 75 6e 63 74 69 | 6f 6e 20 6b 65 79 62 6f |p-functi|on keybo|
|00000ff0| 61 72 64 2d 63 75 72 72 | 65 6e 74 2d 6c 6f 63 61 |ard-curr|ent-loca|
|00001000| 6c 2d 6d 61 70 2d 64 6f | 2d 69 6e 73 65 72 74 20 |l-map-do|-insert |
|00001010| 6b 65 79 62 6f 61 72 64 | 2d 63 75 72 72 65 6e 74 |keyboard|-current|
|00001020| 2d 6c 6f 63 61 6c 2d 6d | 61 70 2d 66 75 6e 63 74 |-local-m|ap-funct|
|00001030| 69 6f 6e 20 6b 65 79 62 | 6f 61 72 64 2d 6c 6f 63 |ion keyb|oard-loc|
|00001040| 61 6c 2d 6d 61 70 2d 64 | 6f 2d 69 6e 73 65 72 74 |al-map-d|o-insert|
|00001050| 20 6b 65 79 62 6f 61 72 | 64 2d 6c 6f 63 61 6c 2d | keyboar|d-local-|
|00001060| 6d 61 70 2d 66 75 6e 63 | 74 69 6f 6e 5d 20 32 29 |map-func|tion] 2)|
|00001070| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6b 65 79 62 |.(defali|as 'keyb|
|00001080| 6f 61 72 64 2d 73 65 6c | 66 2d 69 6e 73 65 72 74 |oard-sel|f-insert|
|00001090| 20 23 5b 28 63 68 61 72 | 29 20 22 08 09 21 87 22 | #[(char|) "..!."|
|000010a0| 20 5b 6b 65 79 62 6f 61 | 72 64 2d 73 65 6c 66 2d | [keyboa|rd-self-|
|000010b0| 69 6e 73 65 72 74 2d 66 | 75 6e 63 74 69 6f 6e 20 |insert-f|unction |
|000010c0| 63 68 61 72 5d 20 32 5d | 29 0a 28 64 65 66 61 6c |char] 2]|).(defal|
|000010d0| 69 61 73 20 27 6b 65 79 | 62 6f 61 72 64 2d 63 75 |ias 'key|board-cu|
|000010e0| 72 72 65 6e 74 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |rrent-lo|cal-map |
|000010f0| 23 5b 6e 69 6c 20 22 08 | 20 87 22 20 5b 6b 65 79 |#[nil ".| ." [key|
|00001100| 62 6f 61 72 64 2d 63 75 | 72 72 65 6e 74 2d 6c 6f |board-cu|rrent-lo|
|00001110| 63 61 6c 2d 6d 61 70 2d | 66 75 6e 63 74 69 6f 6e |cal-map-|function|
|00001120| 5d 20 31 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 1]).(d|efalias |
|00001130| 27 6b 65 79 62 6f 61 72 | 64 2d 75 73 65 2d 6c 6f |'keyboar|d-use-lo|
|00001140| 63 61 6c 2d 6d 61 70 20 | 23 5b 28 6d 61 70 29 20 |cal-map |#[(map) |
|00001150| 22 08 09 21 87 22 20 5b | 6b 65 79 62 6f 61 72 64 |"..!." [|keyboard|
|00001160| 2d 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 2d 66 |-use-loc|al-map-f|
|00001170| 75 6e 63 74 69 6f 6e 20 | 6d 61 70 5d 20 32 5d 29 |unction |map] 2])|
|00001180| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6b 65 79 62 |.(defali|as 'keyb|
|00001190| 6f 61 72 64 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 23 |oard-loc|al-map #|
|000011a0| 5b 6e 69 6c 20 22 08 20 | 87 22 20 5b 6b 65 79 62 |[nil ". |." [keyb|
|000011b0| 6f 61 72 64 2d 6c 6f 63 | 61 6c 2d 6d 61 70 2d 66 |oard-loc|al-map-f|
|000011c0| 75 6e 63 74 69 6f 6e 5d | 20 31 5d 29 0a 28 64 65 |unction]| 1]).(de|
|000011d0| 66 61 6c 69 61 73 20 27 | 6b 65 79 62 6f 61 72 64 |falias '|keyboard|
|000011e0| 2d 72 65 73 65 74 2d 73 | 74 61 74 65 20 23 5b 6e |-reset-s|tate #[n|
|000011f0| 69 6c 20 22 c0 11 c0 12 | c0 89 13 87 22 20 5b 6e |il "....|...." [n|
|00001200| 69 6c 20 5f 6b 65 79 62 | 6f 61 72 64 2d 66 69 72 |il _keyb|oard-fir|
|00001210| 73 74 2d 62 79 74 65 5f | 20 5f 6b 65 79 62 6f 61 |st-byte_| _keyboa|
|00001220| 72 64 2d 53 53 32 5f 20 | 5f 6b 65 79 62 6f 61 72 |rd-SS2_ |_keyboar|
|00001230| 64 2d 53 53 33 5f 5d 20 | 32 5d 29 0a 28 64 65 66 |d-SS3_] |2]).(def|
|00001240| 61 6c 69 61 73 20 27 6b | 65 79 62 6f 61 72 64 2d |alias 'k|eyboard-|
|00001250| 64 65 66 69 6e 65 2d 67 | 6c 6f 62 61 6c 2d 6d 61 |define-g|lobal-ma|
|00001260| 70 2d 69 73 6f 20 23 5b | 28 6d 61 70 29 20 22 c0 |p-iso #[|(map) ".|
|00001270| 19 c0 c2 57 ab 98 0b 09 | c4 1d 1e 06 1b c7 0b c8 |...W....|........|
|00001280| 0e 06 21 0d c9 24 88 2b | 09 54 89 11 aa 64 29 c7 |..!..$.+|.T...d).|
|00001290| 0b ca cb c9 24 88 c7 0b | cc cd c9 24 88 c7 0b ce |....$...|...$....|
|000012a0| cf 23 88 c7 0b d0 d1 23 | 88 0e 12 ab 8c c7 0b d3 |.#.....#|........|
|000012b0| d4 23 88 c7 0b d5 d6 23 | 88 c7 0b d7 d8 23 87 22 |.#.....#|.....#."|
|000012c0| 20 5b 31 36 30 20 69 20 | 32 35 36 20 6d 61 70 20 | [160 i |256 map |
|000012d0| 73 65 6c 66 2d 69 6e 73 | 65 72 74 2d 69 73 6f 20 |self-ins|ert-iso |
|000012e0| 63 6f 6d 6d 61 6e 64 20 | 6b 65 79 20 64 65 66 69 |command |key defi|
|000012f0| 6e 65 2d 6b 65 79 20 63 | 68 61 72 2d 74 6f 2d 73 |ne-key c|har-to-s|
|00001300| 74 72 69 6e 67 20 74 20 | 22 8e 22 20 6b 65 79 62 |tring t |"." keyb|
|00001310| 6f 61 72 64 2d 53 53 32 | 20 22 8f 22 20 6b 65 79 |oard-SS2| "." key|
|00001320| 62 6f 61 72 64 2d 53 53 | 33 20 22 1b 28 22 20 65 |board-SS|3 ".(" e|
|00001330| 73 63 2d 6f 70 65 6e 70 | 61 72 2d 70 72 65 66 69 |sc-openp|ar-prefi|
|00001340| 78 20 22 1b 29 22 20 65 | 73 63 2d 63 6c 6f 73 65 |x ".)" e|sc-close|
|00001350| 70 61 72 2d 70 72 65 66 | 69 78 20 6b 65 79 62 6f |par-pref|ix keybo|
|00001360| 61 72 64 2d 61 6c 6c 6f | 77 2d 6c 61 74 69 6e 2d |ard-allo|w-latin-|
|00001370| 69 6e 70 75 74 20 22 1b | 2c 22 20 65 73 63 2d 63 |input ".|," esc-c|
|00001380| 6f 6d 6d 61 2d 70 72 65 | 66 69 78 20 22 1b 2d 22 |omma-pre|fix ".-"|
|00001390| 20 65 73 63 2d 6d 69 6e | 75 73 2d 70 72 65 66 69 | esc-min|us-prefi|
|000013a0| 78 20 22 1b 24 22 20 65 | 73 63 2d 64 6f 6c 2d 70 |x ".$" e|sc-dol-p|
|000013b0| 72 65 66 69 78 5d 20 36 | 5d 29 0a 28 64 65 66 61 |refix] 6|]).(defa|
|000013c0| 6c 69 61 73 20 27 6b 65 | 79 62 6f 61 72 64 2d 64 |lias 'ke|yboard-d|
|000013d0| 65 66 69 6e 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 2d |efine-lo|cal-map-|
|000013e0| 69 73 6f 20 23 5b 28 6d | 61 70 29 20 22 c0 19 c0 |iso #[(m|ap) "...|
|000013f0| c2 57 ad 98 0b 09 c4 1d | 1e 06 1b c7 0b c8 0e 06 |.W......|........|
|00001400| 21 0d c9 24 88 2b 09 54 | 89 11 aa 64 29 87 22 20 |!..$.+.T|...d)." |
|00001410| 5b 33 33 20 69 20 31 32 | 37 20 6d 61 70 20 73 65 |[33 i 12|7 map se|
|00001420| 6c 66 2d 69 6e 73 65 72 | 74 2d 69 73 6f 20 63 6f |lf-inser|t-iso co|
|00001430| 6d 6d 61 6e 64 20 6b 65 | 79 20 64 65 66 69 6e 65 |mmand ke|y define|
|00001440| 2d 6b 65 79 20 63 68 61 | 72 2d 74 6f 2d 73 74 72 |-key cha|r-to-str|
|00001450| 69 6e 67 20 74 5d 20 36 | 5d 29 0a 28 64 65 66 61 |ing t] 6|]).(defa|
|00001460| 6c 69 61 73 20 27 73 65 | 74 2d 6b 65 79 62 6f 61 |lias 'se|t-keyboa|
|00001470| 72 64 2d 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |rd-codin|g-system|
|00001480| 2d 69 73 6f 32 30 32 32 | 20 23 5b 28 63 6f 64 65 |-iso2022| #[(code|
|00001490| 29 20 22 c0 09 c2 5c 22 | 13 c0 09 c4 5c 22 15 c0 |) "...\"|....\"..|
|000014a0| 09 c6 5c 22 16 07 c0 09 | c8 5c 22 16 09 0d ac 86 |..\"....|.\".....|
|000014b0| ca cb 21 88 aa 84 ca c2 | 21 88 cc 1e 0d ce 16 0d |..!.....|!.......|
|000014c0| ce cf 57 ab a0 0e 10 0e | 0d d1 1e 12 1e 13 1e 14 |..W.....|........|
|000014d0| d5 0e 14 d6 0e 13 21 0e | 12 cb 24 88 2b 0e 0d 54 |......!.|..$.+..T|
|000014e0| 89 16 0d aa 5c 5c 29 0e | 17 ac e6 d8 20 16 17 cc |....\\).|.... ...|
|000014f0| 89 1e 14 1e 0d d9 16 0d | d9 da 57 ab a0 0e 17 0e |........|..W.....|
|00001500| 0d d1 1e 12 1e 13 1e 14 | d5 0e 14 d6 0e 13 21 0e |........|......!.|
|00001510| 12 cb 24 88 2b 0e 0d 54 | 89 16 0d aa 5c 5c db 20 |..$.+..T|....\\. |
|00001520| 16 14 dc 16 0d dc dd 57 | ab a0 0e 14 0e 0d d1 1e |.......W|........|
|00001530| 12 1e 13 1e 14 d5 0e 14 | d6 0e 13 21 0e 12 cb 24 |........|...!...$|
|00001540| 88 2b 0e 0d 54 89 16 0d | aa 5c 5c 2a d5 0e 17 de |.+..T...|.\\*....|
|00001550| df 23 88 0e 20 84 19 02 | d8 20 16 20 d8 20 16 21 |.#.. ...|. . . .!|
|00001560| d8 20 16 5c 22 d8 20 16 | 23 d8 20 16 24 d8 20 16 |. .\". .|#. .$. .|
|00001570| 25 d8 20 16 26 d8 20 16 | 27 d8 20 16 28 e9 0e 20 |%. .&. .|'. .(.. |
|00001580| 4d 88 ea 0e 21 4d 88 eb | 0e 5c 22 4d 88 ec 0e 23 |M...!M..|.\"M...#|
|00001590| 4d 88 ed 0e 24 4d 88 ee | 0e 25 4d 88 ef 0e 26 4d |M...$M..|.%M...&M|
|000015a0| 88 f0 0e 27 4d 88 f1 0e | 28 4d 88 d5 0e 20 f2 ee |...'M...|(M... ..|
|000015b0| 23 88 d5 0e 20 f3 ef 23 | 88 d5 0e 20 f4 f0 23 88 |#... ..#|... ..#.|
|000015c0| d5 0e 20 f5 f1 23 88 cc | 1e 0d f6 16 0d f6 f7 57 |.. ..#..|.......W|
|000015d0| 83 18 02 0e 21 0e 0d f8 | 1e 12 1e 13 1e 14 d5 0e |....!...|........|
|000015e0| 14 d6 0e 13 21 0e 12 cb | 24 88 2b 0e 5c 22 0e 0d |....!...|$.+.\"..|
|000015f0| f9 1e 12 1e 13 1e 14 d5 | 0e 14 d6 0e 13 21 0e 12 |........|.....!..|
|00001600| cb 24 88 2b 0e 23 0e 0d | fa 1e 12 1e 13 1e 14 d5 |.$.+.#..|........|
|00001610| 0e 14 d6 0e 13 21 0e 12 | cb 24 88 2b 0e 24 0e 0d |.....!..|.$.+.$..|
|00001620| fb 1e 12 1e 13 1e 14 d5 | 0e 14 d6 0e 13 21 0e 12 |........|.....!..|
|00001630| cb 24 88 2b 0e 20 0e 0d | fc 1e 12 1e 13 1e 14 d5 |.$.+. ..|........|
|00001640| 0e 14 d6 0e 13 21 0e 12 | cb 24 88 2b 0e 25 0e 0d |.....!..|.$.+.%..|
|00001650| fc 1e 12 1e 13 1e 14 d5 | 0e 14 d6 0e 13 21 0e 12 |........|.....!..|
|00001660| cb 24 88 2b 0e 26 0e 0d | fd 1e 12 1e 13 1e 14 d5 |.$.+.&..|........|
|00001670| 0e 14 d6 0e 13 21 0e 12 | cb 24 88 2b 0e 27 0e 0d |.....!..|.$.+.'..|
|00001680| fe 1e 12 1e 13 1e 14 d5 | 0e 14 d6 0e 13 21 0e 12 |........|.....!..|
|00001690| cb 24 88 2b 0e 28 0e 0d | ff 1e 12 1e 13 1e 14 d5 |.$.+.(..|........|
|000016a0| 0e 14 d6 0e 13 21 0e 12 | cb 24 88 2b 0e 0d 54 89 |.....!..|.$.+..T.|
|000016b0| 16 0d 82 32 01 29 d5 0e | 10 81 40 00 81 41 00 cb |...2.)..|..@..A..|
|000016c0| 24 88 d5 0e 10 81 42 00 | 81 43 00 cb 24 88 d5 0e |$.....B.|.C..$...|
|000016d0| 44 f2 ea 23 88 d5 0e 44 | f3 eb 23 88 0e 45 ab 8e |D..#...D|..#..E..|
|000016e0| d5 0e 44 f4 ec 23 88 d5 | 0e 44 f5 ed 23 88 d5 0e |..D..#..|.D..#...|
|000016f0| 44 81 46 00 e9 23 88 81 | 47 00 20 88 09 89 16 48 |D.F..#..|G. ....H|
|00001700| 87 22 20 5b 63 6f 64 69 | 6e 67 2d 73 79 73 74 65 |." [codi|ng-syste|
|00001710| 6d 2d 63 68 61 72 73 65 | 74 20 63 6f 64 65 20 30 |m-charse|t code 0|
|00001720| 20 5f 63 75 72 72 65 6e | 74 2d 67 30 5f 20 31 20 | _curren|t-g0_ 1 |
|00001730| 5f 63 75 72 72 65 6e 74 | 2d 67 31 5f 20 32 20 5f |_current|-g1_ 2 _|
|00001740| 63 75 72 72 65 6e 74 2d | 67 32 5f 20 33 20 5f 63 |current-|g2_ 3 _c|
|00001750| 75 72 72 65 6e 74 2d 67 | 33 5f 20 6b 65 79 62 6f |urrent-g|3_ keybo|
|00001760| 61 72 64 2d 73 65 74 2d | 69 6e 70 75 74 2d 6d 6f |ard-set-|input-mo|
|00001770| 64 65 20 74 20 6e 69 6c | 20 69 20 31 36 30 20 32 |de t nil| i 160 2|
|00001780| 35 36 20 67 6c 6f 62 61 | 6c 2d 6d 61 70 20 73 65 |56 globa|l-map se|
|00001790| 6c 66 2d 69 6e 73 65 72 | 74 2d 69 73 6f 20 63 6f |lf-inser|t-iso co|
|000017a0| 6d 6d 61 6e 64 20 6b 65 | 79 20 6d 61 70 20 64 65 |mmand ke|y map de|
|000017b0| 66 69 6e 65 2d 6b 65 79 | 20 63 68 61 72 2d 74 6f |fine-key| char-to|
|000017c0| 2d 73 74 72 69 6e 67 20 | 6c 6f 63 61 6c 2d 6d 61 |-string |local-ma|
|000017d0| 70 2d 69 73 6f 20 6d 61 | 6b 65 2d 6b 65 79 6d 61 |p-iso ma|ke-keyma|
|000017e0| 70 20 33 33 20 31 32 37 | 20 63 75 72 72 65 6e 74 |p 33 127| current|
|000017f0| 2d 67 6c 6f 62 61 6c 2d | 6d 61 70 20 31 36 31 20 |-global-|map 161 |
|00001800| 32 35 35 20 22 07 22 20 | 6d 75 6c 65 2d 6b 65 79 |255 "." |mule-key|
|00001810| 62 6f 61 72 64 2d 71 75 | 69 74 20 65 73 63 2d 64 |board-qu|it esc-d|
|00001820| 6f 6c 2d 6d 61 70 20 65 | 73 63 2d 6f 70 65 6e 70 |ol-map e|sc-openp|
|00001830| 61 72 2d 6d 61 70 20 65 | 73 63 2d 63 6c 6f 73 65 |ar-map e|sc-close|
|00001840| 70 61 72 2d 6d 61 70 20 | 65 73 63 2d 63 6f 6d 6d |par-map |esc-comm|
|00001850| 61 2d 6d 61 70 20 65 73 | 63 2d 6d 69 6e 75 73 2d |a-map es|c-minus-|
|00001860| 6d 61 70 20 65 73 63 2d | 64 6f 6c 2d 6f 70 65 6e |map esc-|dol-open|
|00001870| 70 61 72 2d 6d 61 70 20 | 65 73 63 2d 64 6f 6c 2d |par-map |esc-dol-|
|00001880| 63 6c 6f 73 65 70 61 72 | 2d 6d 61 70 20 65 73 63 |closepar|-map esc|
|00001890| 2d 64 6f 6c 2d 63 6f 6d | 6d 61 2d 6d 61 70 20 65 |-dol-com|ma-map e|
|000018a0| 73 63 2d 64 6f 6c 2d 6d | 69 6e 75 73 2d 6d 61 70 |sc-dol-m|inus-map|
|000018b0| 20 65 73 63 2d 64 6f 6c | 2d 70 72 65 66 69 78 20 | esc-dol|-prefix |
|000018c0| 65 73 63 2d 6f 70 65 6e | 70 61 72 2d 70 72 65 66 |esc-open|par-pref|
|000018d0| 69 78 20 65 73 63 2d 63 | 6c 6f 73 65 70 61 72 2d |ix esc-c|losepar-|
|000018e0| 70 72 65 66 69 78 20 65 | 73 63 2d 63 6f 6d 6d 61 |prefix e|sc-comma|
|000018f0| 2d 70 72 65 66 69 78 20 | 65 73 63 2d 6d 69 6e 75 |-prefix |esc-minu|
|00001900| 73 2d 70 72 65 66 69 78 | 20 65 73 63 2d 64 6f 6c |s-prefix| esc-dol|
|00001910| 2d 6f 70 65 6e 70 61 72 | 2d 70 72 65 66 69 78 20 |-openpar|-prefix |
|00001920| 65 73 63 2d 64 6f 6c 2d | 63 6c 6f 73 65 70 61 72 |esc-dol-|closepar|
|00001930| 2d 70 72 65 66 69 78 20 | 65 73 63 2d 64 6f 6c 2d |-prefix |esc-dol-|
|00001940| 63 6f 6d 6d 61 2d 70 72 | 65 66 69 78 20 65 73 63 |comma-pr|efix esc|
|00001950| 2d 64 6f 6c 2d 6d 69 6e | 75 73 2d 70 72 65 66 69 |-dol-min|us-prefi|
|00001960| 78 20 22 28 22 20 22 29 | 22 20 22 2c 22 20 22 2d |x "(" ")|" "," "-|
|00001970| 22 20 3f 30 20 3f 5c 60 | 20 6b 65 79 62 6f 61 72 |" ?0 ?\`| keyboar|
|00001980| 64 2d 64 65 73 69 67 6e | 61 74 65 2d 39 34 2d 47 |d-design|ate-94-G|
|00001990| 4c 20 6b 65 79 62 6f 61 | 72 64 2d 64 65 73 69 67 |L keyboa|rd-desig|
|000019a0| 6e 61 74 65 2d 39 34 2d | 47 52 20 6b 65 79 62 6f |nate-94-|GR keybo|
|000019b0| 61 72 64 2d 64 65 73 69 | 67 6e 61 74 65 2d 39 36 |ard-desi|gnate-96|
|000019c0| 2d 47 4c 20 6b 65 79 62 | 6f 61 72 64 2d 64 65 73 |-GL keyb|oard-des|
|000019d0| 69 67 6e 61 74 65 2d 39 | 36 2d 47 52 20 6b 65 79 |ignate-9|6-GR key|
|000019e0| 62 6f 61 72 64 2d 64 65 | 73 69 67 6e 61 74 65 2d |board-de|signate-|
|000019f0| 39 34 6e 2d 47 4c 20 6b | 65 79 62 6f 61 72 64 2d |94n-GL k|eyboard-|
|00001a00| 64 65 73 69 67 6e 61 74 | 65 2d 39 34 6e 2d 47 52 |designat|e-94n-GR|
|00001a10| 20 6b 65 79 62 6f 61 72 | 64 2d 64 65 73 69 67 6e | keyboar|d-design|
|00001a20| 61 74 65 2d 39 36 6e 2d | 47 4c 20 6b 65 79 62 6f |ate-96n-|GL keybo|
|00001a30| 61 72 64 2d 64 65 73 69 | 67 6e 61 74 65 2d 39 36 |ard-desi|gnate-96|
|00001a40| 6e 2d 47 52 20 22 8e 22 | 20 6b 65 79 62 6f 61 72 |n-GR "."| keyboar|
|00001a50| 64 2d 53 53 32 20 22 8f | 22 20 6b 65 79 62 6f 61 |d-SS2 ".|" keyboa|
|00001a60| 72 64 2d 53 53 33 20 65 | 73 63 2d 6d 61 70 20 6b |rd-SS3 e|sc-map k|
|00001a70| 65 79 62 6f 61 72 64 2d | 61 6c 6c 6f 77 2d 6c 61 |eyboard-|allow-la|
|00001a80| 74 69 6e 2d 69 6e 70 75 | 74 20 22 24 22 20 6b 65 |tin-inpu|t "$" ke|
|00001a90| 79 62 6f 61 72 64 2d 72 | 65 73 65 74 2d 73 74 61 |yboard-r|eset-sta|
|00001aa0| 74 65 20 6b 65 79 62 6f | 61 72 64 2d 63 6f 64 69 |te keybo|ard-codi|
|00001ab0| 6e 67 2d 73 79 73 74 65 | 6d 5d 20 36 5d 29 0a 28 |ng-syste|m] 6]).(|
|00001ac0| 64 65 66 61 6c 69 61 73 | 20 27 6d 75 6c 65 2d 6b |defalias| 'mule-k|
|00001ad0| 65 79 62 6f 61 72 64 2d | 71 75 69 74 20 23 5b 6e |eyboard-|quit #[n|
|00001ae0| 69 6c 20 22 c0 20 88 09 | ab 84 c2 09 21 88 c3 20 |il ". ..|....!.. |
|00001af0| 87 22 20 5b 6b 65 79 62 | 6f 61 72 64 2d 72 65 73 |." [keyb|oard-res|
|00001b00| 65 74 2d 73 74 61 74 65 | 20 5f 6b 65 79 62 6f 61 |et-state| _keyboa|
|00001b10| 72 64 2d 73 61 76 65 64 | 2d 6c 6f 63 61 6c 2d 6d |rd-saved|-local-m|
|00001b20| 61 70 5f 20 6b 65 79 62 | 6f 61 72 64 2d 75 73 65 |ap_ keyb|oard-use|
|00001b30| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 6b 65 79 62 6f |-local-m|ap keybo|
|00001b40| 61 72 64 2d 71 75 69 74 | 5d 20 32 20 6e 69 6c 20 |ard-quit|] 2 nil |
|00001b50| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001b60| 27 6b 65 79 62 6f 61 72 | 64 2d 63 68 61 6e 67 65 |'keyboar|d-change|
|00001b70| 2d 6c 6f 63 61 6c 2d 6d | 61 70 2d 66 6f 72 2d 69 |-local-m|ap-for-i|
|00001b80| 73 6f 20 23 5b 6e 69 6c | 20 22 c0 20 c1 20 61 3f |so #[nil| ". . a?|
|00001b90| ad 87 c0 20 12 c3 c1 20 | 21 87 22 20 5b 6b 65 79 |... ... |!." [key|
|00001ba0| 62 6f 61 72 64 2d 63 75 | 72 72 65 6e 74 2d 6c 6f |board-cu|rrent-lo|
|00001bb0| 63 61 6c 2d 6d 61 70 20 | 6b 65 79 62 6f 61 72 64 |cal-map |keyboard|
|00001bc0| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 5f 6b 65 79 62 |-local-m|ap _keyb|
|00001bd0| 6f 61 72 64 2d 73 61 76 | 65 64 2d 6c 6f 63 61 6c |oard-sav|ed-local|
|00001be0| 2d 6d 61 70 5f 20 6b 65 | 79 62 6f 61 72 64 2d 75 |-map_ ke|yboard-u|
|00001bf0| 73 65 2d 6c 6f 63 61 6c | 2d 6d 61 70 5d 20 32 5d |se-local|-map] 2]|
|00001c00| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6b 65 79 |).(defal|ias 'key|
|00001c10| 62 6f 61 72 64 2d 64 65 | 73 69 67 6e 61 74 65 2d |board-de|signate-|
|00001c20| 39 34 2d 47 4c 20 23 5b | 6e 69 6c 20 22 c0 09 21 |94-GL #[|nil "..!|
|00001c30| ab 8e c2 c3 c4 0d 23 c6 | 61 ab 85 c7 16 08 aa 87 |......#.|a.......|
|00001c40| c2 c3 c4 0d 23 16 08 0e | 08 c7 61 ab 85 c9 0e 5c |....#...|..a....\|
|00001c50| 6e 21 87 cb 20 87 22 20 | 5b 63 6f 64 69 6e 67 2d |n!.. ." |[coding-|
|00001c60| 73 79 73 74 65 6d 2d 75 | 73 65 2d 6a 61 70 61 6e |system-u|se-japan|
|00001c70| 65 73 65 2d 6a 69 73 78 | 30 32 30 31 2d 72 6f 6d |ese-jisx|0201-rom|
|00001c80| 61 6e 20 6b 65 79 62 6f | 61 72 64 2d 63 6f 64 69 |an keybo|ard-codi|
|00001c90| 6e 67 2d 73 79 73 74 65 | 6d 20 63 68 61 72 73 65 |ng-syste|m charse|
|00001ca0| 74 2d 66 72 6f 6d 2d 61 | 74 74 72 69 62 75 74 65 |t-from-a|ttribute|
|00001cb0| 73 20 31 20 39 34 20 6c | 61 73 74 2d 63 6f 6d 6d |s 1 94 l|ast-comm|
|00001cc0| 61 6e 64 2d 63 68 61 72 | 20 6a 61 70 61 6e 65 73 |and-char| japanes|
|00001cd0| 65 2d 6a 69 73 78 30 32 | 30 31 2d 72 6f 6d 61 6e |e-jisx02|01-roman|
|00001ce0| 20 61 73 63 69 69 20 5f | 63 75 72 72 65 6e 74 2d | ascii _|current-|
|00001cf0| 67 30 5f 20 6b 65 79 62 | 6f 61 72 64 2d 75 73 65 |g0_ keyb|oard-use|
|00001d00| 2d 6c 6f 63 61 6c 2d 6d | 61 70 20 5f 6b 65 79 62 |-local-m|ap _keyb|
|00001d10| 6f 61 72 64 2d 73 61 76 | 65 64 2d 6c 6f 63 61 6c |oard-sav|ed-local|
|00001d20| 2d 6d 61 70 5f 20 6b 65 | 79 62 6f 61 72 64 2d 63 |-map_ ke|yboard-c|
|00001d30| 68 61 6e 67 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 2d |hange-lo|cal-map-|
|00001d40| 66 6f 72 2d 69 73 6f 5d | 20 34 20 6e 69 6c 20 6e |for-iso]| 4 nil n|
|00001d50| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00001d60| 6b 65 79 62 6f 61 72 64 | 2d 64 65 73 69 67 6e 61 |keyboard|-designa|
|00001d70| 74 65 2d 39 34 2d 47 52 | 20 23 5b 6e 69 6c 20 22 |te-94-GR| #[nil "|
|00001d80| c0 c1 c2 0b 23 89 14 87 | 22 20 5b 63 68 61 72 73 |....#...|" [chars|
|00001d90| 65 74 2d 66 72 6f 6d 2d | 61 74 74 72 69 62 75 74 |et-from-|attribut|
|00001da0| 65 73 20 31 20 39 34 20 | 6c 61 73 74 2d 63 6f 6d |es 1 94 |last-com|
|00001db0| 6d 61 6e 64 2d 63 68 61 | 72 20 5f 63 75 72 72 65 |mand-cha|r _curre|
|00001dc0| 6e 74 2d 67 31 5f 5d 20 | 34 20 6e 69 6c 20 6e 69 |nt-g1_] |4 nil ni|
|00001dd0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 6b |l]).(def|alias 'k|
|00001de0| 65 79 62 6f 61 72 64 2d | 64 65 73 69 67 6e 61 74 |eyboard-|designat|
|00001df0| 65 2d 39 36 2d 47 4c 20 | 23 5b 6e 69 6c 20 22 c0 |e-96-GL |#[nil ".|
|00001e00| c1 c2 0b 23 14 c5 20 87 | 22 20 5b 63 68 61 72 73 |...#.. .|" [chars|
|00001e10| 65 74 2d 66 72 6f 6d 2d | 61 74 74 72 69 62 75 74 |et-from-|attribut|
|00001e20| 65 73 20 31 20 39 36 20 | 6c 61 73 74 2d 63 6f 6d |es 1 96 |last-com|
|00001e30| 6d 61 6e 64 2d 63 68 61 | 72 20 5f 63 75 72 72 65 |mand-cha|r _curre|
|00001e40| 6e 74 2d 67 30 5f 20 6b | 65 79 62 6f 61 72 64 2d |nt-g0_ k|eyboard-|
|00001e50| 63 68 61 6e 67 65 2d 6c | 6f 63 61 6c 2d 6d 61 70 |change-l|ocal-map|
|00001e60| 2d 66 6f 72 2d 69 73 6f | 5d 20 34 20 6e 69 6c 20 |-for-iso|] 4 nil |
|00001e70| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001e80| 27 6b 65 79 62 6f 61 72 | 64 2d 64 65 73 69 67 6e |'keyboar|d-design|
|00001e90| 61 74 65 2d 39 36 2d 47 | 52 20 23 5b 6e 69 6c 20 |ate-96-G|R #[nil |
|00001ea0| 22 c0 c1 c2 0b 23 89 14 | 87 22 20 5b 63 68 61 72 |"....#..|." [char|
|00001eb0| 73 65 74 2d 66 72 6f 6d | 2d 61 74 74 72 69 62 75 |set-from|-attribu|
|00001ec0| 74 65 73 20 31 20 39 36 | 20 6c 61 73 74 2d 63 6f |tes 1 96| last-co|
|00001ed0| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 5f 63 75 72 72 |mmand-ch|ar _curr|
|00001ee0| 65 6e 74 2d 67 31 5f 5d | 20 34 20 6e 69 6c 20 6e |ent-g1_]| 4 nil n|
|00001ef0| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00001f00| 6b 65 79 62 6f 61 72 64 | 2d 64 65 73 69 67 6e 61 |keyboard|-designa|
|00001f10| 74 65 2d 39 34 6e 2d 47 | 4c 20 23 5b 6e 69 6c 20 |te-94n-G|L #[nil |
|00001f20| 22 c0 09 21 ab 8e c2 c3 | c4 0d 23 c6 61 ab 85 c7 |"..!....|..#.a...|
|00001f30| 16 08 aa 87 c2 c3 c4 0d | 23 16 08 c9 20 87 22 20 |........|#... ." |
|00001f40| 5b 63 6f 64 69 6e 67 2d | 73 79 73 74 65 6d 2d 75 |[coding-|system-u|
|00001f50| 73 65 2d 6a 61 70 61 6e | 65 73 65 2d 6a 69 73 78 |se-japan|ese-jisx|
|00001f60| 30 32 30 38 2d 31 39 37 | 38 20 6b 65 79 62 6f 61 |0208-197|8 keyboa|
|00001f70| 72 64 2d 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |rd-codin|g-system|
|00001f80| 20 63 68 61 72 73 65 74 | 2d 66 72 6f 6d 2d 61 74 | charset|-from-at|
|00001f90| 74 72 69 62 75 74 65 73 | 20 32 20 39 34 20 6c 61 |tributes| 2 94 la|
|00001fa0| 73 74 2d 63 6f 6d 6d 61 | 6e 64 2d 63 68 61 72 20 |st-comma|nd-char |
|00001fb0| 6a 61 70 61 6e 65 73 65 | 2d 6a 69 73 78 30 32 30 |japanese|-jisx020|
|00001fc0| 38 2d 31 39 37 38 20 6a | 61 70 61 6e 65 73 65 2d |8-1978 j|apanese-|
|00001fd0| 6a 69 73 78 30 32 30 38 | 20 5f 63 75 72 72 65 6e |jisx0208| _curren|
|00001fe0| 74 2d 67 30 5f 20 6b 65 | 79 62 6f 61 72 64 2d 63 |t-g0_ ke|yboard-c|
|00001ff0| 68 61 6e 67 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 2d |hange-lo|cal-map-|
|00002000| 66 6f 72 2d 69 73 6f 5d | 20 34 20 6e 69 6c 20 6e |for-iso]| 4 nil n|
|00002010| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|00002020| 6b 65 79 62 6f 61 72 64 | 2d 64 65 73 69 67 6e 61 |keyboard|-designa|
|00002030| 74 65 2d 39 34 6e 2d 47 | 52 20 23 5b 6e 69 6c 20 |te-94n-G|R #[nil |
|00002040| 22 c0 c1 c2 0b 23 89 14 | 87 22 20 5b 63 68 61 72 |"....#..|." [char|
|00002050| 73 65 74 2d 66 72 6f 6d | 2d 61 74 74 72 69 62 75 |set-from|-attribu|
|00002060| 74 65 73 20 32 20 39 34 | 20 6c 61 73 74 2d 63 6f |tes 2 94| last-co|
|00002070| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 5f 63 75 72 72 |mmand-ch|ar _curr|
|00002080| 65 6e 74 2d 67 31 5f 5d | 20 34 20 6e 69 6c 20 6e |ent-g1_]| 4 nil n|
|00002090| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|000020a0| 6b 65 79 62 6f 61 72 64 | 2d 64 65 73 69 67 6e 61 |keyboard|-designa|
|000020b0| 74 65 2d 39 36 6e 2d 47 | 4c 20 23 5b 6e 69 6c 20 |te-96n-G|L #[nil |
|000020c0| 22 c0 c1 c2 0b 23 14 c5 | 20 87 22 20 5b 63 68 61 |"....#..| ." [cha|
|000020d0| 72 73 65 74 2d 66 72 6f | 6d 2d 61 74 74 72 69 62 |rset-fro|m-attrib|
|000020e0| 75 74 65 73 20 32 20 39 | 36 20 6c 61 73 74 2d 63 |utes 2 9|6 last-c|
|000020f0| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 20 5f 63 75 72 |ommand-c|har _cur|
|00002100| 72 65 6e 74 2d 67 30 5f | 20 6b 65 79 62 6f 61 72 |rent-g0_| keyboar|
|00002110| 64 2d 63 68 61 6e 67 65 | 2d 6c 6f 63 61 6c 2d 6d |d-change|-local-m|
|00002120| 61 70 2d 66 6f 72 2d 69 | 73 6f 5d 20 34 20 6e 69 |ap-for-i|so] 4 ni|
|00002130| 6c 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |l nil]).|(defalia|
|00002140| 73 20 27 6b 65 79 62 6f | 61 72 64 2d 64 65 73 69 |s 'keybo|ard-desi|
|00002150| 67 6e 61 74 65 2d 39 36 | 6e 2d 47 52 20 23 5b 6e |gnate-96|n-GR #[n|
|00002160| 69 6c 20 22 c0 c1 c2 0b | 23 89 14 87 22 20 5b 63 |il "....|#..." [c|
|00002170| 68 61 72 73 65 74 2d 66 | 72 6f 6d 2d 61 74 74 72 |harset-f|rom-attr|
|00002180| 69 62 75 74 65 73 20 32 | 20 39 36 20 6c 61 73 74 |ibutes 2| 96 last|
|00002190| 2d 63 6f 6d 6d 61 6e 64 | 2d 63 68 61 72 20 5f 63 |-command|-char _c|
|000021a0| 75 72 72 65 6e 74 2d 67 | 31 5f 5d 20 34 20 6e 69 |urrent-g|1_] 4 ni|
|000021b0| 6c 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |l nil]).|(defalia|
|000021c0| 73 20 27 6b 65 79 62 6f | 61 72 64 2d 53 53 32 20 |s 'keybo|ard-SS2 |
|000021d0| 23 5b 6e 69 6c 20 22 c0 | 11 c2 20 13 c4 20 87 22 |#[nil ".|.. .. ."|
|000021e0| 20 5b 74 20 5f 6b 65 79 | 62 6f 61 72 64 2d 53 53 | [t _key|board-SS|
|000021f0| 32 5f 20 6b 65 79 62 6f | 61 72 64 2d 63 75 72 72 |2_ keybo|ard-curr|
|00002200| 65 6e 74 2d 6c 6f 63 61 | 6c 2d 6d 61 70 20 5f 73 |ent-loca|l-map _s|
|00002210| 61 76 65 64 2d 6c 6f 63 | 61 6c 2d 6d 61 70 2d 73 |aved-loc|al-map-s|
|00002220| 69 6e 67 6c 65 2d 73 68 | 69 66 74 5f 20 6b 65 79 |ingle-sh|ift_ key|
|00002230| 62 6f 61 72 64 2d 63 68 | 61 6e 67 65 2d 6c 6f 63 |board-ch|ange-loc|
|00002240| 61 6c 2d 6d 61 70 2d 66 | 6f 72 2d 69 73 6f 5d 20 |al-map-f|or-iso] |
|00002250| 31 20 6e 69 6c 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |1 nil ni|l]).(def|
|00002260| 61 6c 69 61 73 20 27 6b | 65 79 62 6f 61 72 64 2d |alias 'k|eyboard-|
|00002270| 53 53 33 20 23 5b 6e 69 | 6c 20 22 c0 11 c2 20 13 |SS3 #[ni|l "... .|
|00002280| c4 20 87 22 20 5b 74 20 | 5f 6b 65 79 62 6f 61 72 |. ." [t |_keyboar|
|00002290| 64 2d 53 53 33 5f 20 6b | 65 79 62 6f 61 72 64 2d |d-SS3_ k|eyboard-|
|000022a0| 63 75 72 72 65 6e 74 2d | 6c 6f 63 61 6c 2d 6d 61 |current-|local-ma|
|000022b0| 70 20 5f 73 61 76 65 64 | 2d 6c 6f 63 61 6c 2d 6d |p _saved|-local-m|
|000022c0| 61 70 2d 73 69 6e 67 6c | 65 2d 73 68 69 66 74 5f |ap-singl|e-shift_|
|000022d0| 20 6b 65 79 62 6f 61 72 | 64 2d 63 68 61 6e 67 65 | keyboar|d-change|
|000022e0| 2d 6c 6f 63 61 6c 2d 6d | 61 70 2d 66 6f 72 2d 69 |-local-m|ap-for-i|
|000022f0| 73 6f 5d 20 31 20 6e 69 | 6c 20 6e 69 6c 5d 29 0a |so] 1 ni|l nil]).|
|00002300| 28 64 65 66 61 6c 69 61 | 73 20 27 73 65 6c 66 2d |(defalia|s 'self-|
|00002310| 69 6e 73 65 72 74 2d 69 | 73 6f 20 23 5b 6e 69 6c |insert-i|so #[nil|
|00002320| 20 22 08 ab 83 09 aa 91 | 5c 6e ab 83 0b aa 8b 0c | "......|\n......|
|00002330| c5 57 ab 84 0e 06 aa 82 | 0e 07 89 1e 08 ac 83 c9 |.W......|........|
|00002340| 20 88 ca 0e 08 21 cb 55 | ab 97 cc cd 0e 08 0c 5c | ....!.U|.......\|
|00002350| 22 21 88 08 ac 83 5c 6e | ab 85 ce 0e 0f 21 88 d0 |"!....\n|.....!..|
|00002360| 20 aa a1 0e 11 ab 99 cc | cd 0e 08 0e 11 0c 23 21 | .......|......#!|
|00002370| 88 08 ac 83 5c 6e ab 85 | ce 0e 0f 21 88 d0 20 aa |....\n..|...!.. .|
|00002380| 84 0c 89 16 11 29 87 22 | 20 5b 5f 6b 65 79 62 6f |.....)."| [_keybo|
|00002390| 61 72 64 2d 53 53 32 5f | 20 5f 63 75 72 72 65 6e |ard-SS2_| _curren|
|000023a0| 74 2d 67 32 5f 20 5f 6b | 65 79 62 6f 61 72 64 2d |t-g2_ _k|eyboard-|
|000023b0| 53 53 33 5f 20 5f 63 75 | 72 72 65 6e 74 2d 67 33 |SS3_ _cu|rrent-g3|
|000023c0| 5f 20 6c 61 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 63 |_ last-c|ommand-c|
|000023d0| 68 61 72 20 31 32 38 20 | 5f 63 75 72 72 65 6e 74 |har 128 |_current|
|000023e0| 2d 67 30 5f 20 5f 63 75 | 72 72 65 6e 74 2d 67 31 |-g0_ _cu|rrent-g1|
|000023f0| 5f 20 63 68 61 72 73 65 | 74 20 6d 75 6c 65 2d 6b |_ charse|t mule-k|
|00002400| 65 79 62 6f 61 72 64 2d | 71 75 69 74 20 63 68 61 |eyboard-|quit cha|
|00002410| 72 73 65 74 2d 64 69 6d | 65 6e 73 69 6f 6e 20 31 |rset-dim|ension 1|
|00002420| 20 6b 65 79 62 6f 61 72 | 64 2d 73 65 6c 66 2d 69 | keyboar|d-self-i|
|00002430| 6e 73 65 72 74 20 6d 61 | 6b 65 2d 63 68 61 72 20 |nsert ma|ke-char |
|00002440| 6b 65 79 62 6f 61 72 64 | 2d 75 73 65 2d 6c 6f 63 |keyboard|-use-loc|
|00002450| 61 6c 2d 6d 61 70 20 5f | 73 61 76 65 64 2d 6c 6f |al-map _|saved-lo|
|00002460| 63 61 6c 2d 6d 61 70 2d | 73 69 6e 67 6c 65 2d 73 |cal-map-|single-s|
|00002470| 68 69 66 74 5f 20 6b 65 | 79 62 6f 61 72 64 2d 72 |hift_ ke|yboard-r|
|00002480| 65 73 65 74 2d 73 74 61 | 74 65 20 5f 6b 65 79 62 |eset-sta|te _keyb|
|00002490| 6f 61 72 64 2d 66 69 72 | 73 74 2d 62 79 74 65 5f |oard-fir|st-byte_|
|000024a0| 5d 20 36 20 6e 69 6c 20 | 6e 69 6c 5d 29 0a 28 64 |] 6 nil |nil]).(d|
|000024b0| 65 66 61 6c 69 61 73 20 | 27 6b 65 79 62 6f 61 72 |efalias |'keyboar|
|000024c0| 64 2d 64 65 66 69 6e 65 | 2d 67 6c 6f 62 61 6c 2d |d-define|-global-|
|000024d0| 6d 61 70 2d 73 68 69 66 | 74 2d 6a 69 73 20 23 5b |map-shif|t-jis #[|
|000024e0| 28 6d 61 70 29 20 22 c0 | 19 c0 c2 57 ab 98 0b 09 |(map) ".|...W....|
|000024f0| c4 1d 1e 06 1b c7 0b c8 | 0e 06 21 0d c9 24 88 2b |........|..!..$.+|
|00002500| 09 54 89 11 aa 64 09 ca | 57 ab 98 0b 09 cb 1d 1e |.T...d..|W.......|
|00002510| 06 1b c7 0b c8 0e 06 21 | 0d c9 24 88 2b 09 54 89 |.......!|..$.+.T.|
|00002520| 11 aa 64 09 cc 57 ad 98 | 0b 09 c4 1d 1e 06 1b c7 |..d..W..|........|
|00002530| 0b c8 0e 06 21 0d c9 24 | 88 2b 09 54 89 11 aa 64 |....!..$|.+.T...d|
|00002540| 29 87 22 20 5b 31 32 38 | 20 69 20 31 36 30 20 6d |)." [128| i 160 m|
|00002550| 61 70 20 73 65 6c 66 2d | 69 6e 73 65 72 74 2d 73 |ap self-|insert-s|
|00002560| 68 69 66 74 2d 6a 69 73 | 2d 6a 61 70 61 6e 65 73 |hift-jis|-japanes|
|00002570| 65 20 63 6f 6d 6d 61 6e | 64 20 6b 65 79 20 64 65 |e comman|d key de|
|00002580| 66 69 6e 65 2d 6b 65 79 | 20 63 68 61 72 2d 74 6f |fine-key| char-to|
|00002590| 2d 73 74 72 69 6e 67 20 | 74 20 32 32 34 20 73 65 |-string |t 224 se|
|000025a0| 6c 66 2d 69 6e 73 65 72 | 74 2d 73 68 69 66 74 2d |lf-inser|t-shift-|
|000025b0| 6a 69 73 2d 6b 61 6e 61 | 20 32 35 36 5d 20 36 5d |jis-kana| 256] 6]|
|000025c0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 6b 65 79 |).(defal|ias 'key|
|000025d0| 62 6f 61 72 64 2d 64 65 | 66 69 6e 65 2d 6c 6f 63 |board-de|fine-loc|
|000025e0| 61 6c 2d 6d 61 70 2d 73 | 68 69 66 74 2d 6a 69 73 |al-map-s|hift-jis|
|000025f0| 20 23 5b 28 6d 61 70 29 | 20 22 c0 19 c0 c2 57 ad | #[(map)| "....W.|
|00002600| 98 0b 09 c4 1d 1e 06 1b | c7 0b c8 0e 06 21 0d c9 |........|.....!..|
|00002610| 24 88 2b 09 54 89 11 aa | 64 29 87 22 20 5b 36 34 |$.+.T...|d)." [64|
|00002620| 20 69 20 32 35 36 20 6d | 61 70 20 73 65 6c 66 2d | i 256 m|ap self-|
|00002630| 69 6e 73 65 72 74 2d 73 | 68 69 66 74 2d 6a 69 73 |insert-s|hift-jis|
|00002640| 2d 6a 61 70 61 6e 65 73 | 65 32 20 63 6f 6d 6d 61 |-japanes|e2 comma|
|00002650| 6e 64 20 6b 65 79 20 64 | 65 66 69 6e 65 2d 6b 65 |nd key d|efine-ke|
|00002660| 79 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |y char-t|o-string|
|00002670| 20 74 5d 20 36 5d 29 0a | 28 64 65 66 61 6c 69 61 | t] 6]).|(defalia|
|00002680| 73 20 27 73 65 74 2d 6b | 65 79 62 6f 61 72 64 2d |s 'set-k|eyboard-|
|00002690| 63 6f 64 69 6e 67 2d 73 | 79 73 74 65 6d 2d 73 68 |coding-s|ystem-sh|
|000026a0| 69 66 74 2d 6a 69 73 20 | 23 5b 6e 69 6c 20 22 c0 |ift-jis |#[nil ".|
|000026b0| c1 21 88 c2 0b 21 88 0c | ac 8d c5 20 14 c6 0c 21 |.!...!..|... ...!|
|000026c0| 88 c7 0c c8 c9 23 88 ca | 16 0b cc 89 16 0d 87 22 |.....#..|......."|
|000026d0| 20 5b 6b 65 79 62 6f 61 | 72 64 2d 73 65 74 2d 69 | [keyboa|rd-set-i|
|000026e0| 6e 70 75 74 2d 6d 6f 64 | 65 20 30 20 6b 65 79 62 |nput-mod|e 0 keyb|
|000026f0| 6f 61 72 64 2d 64 65 66 | 69 6e 65 2d 67 6c 6f 62 |oard-def|ine-glob|
|00002700| 61 6c 2d 6d 61 70 2d 73 | 68 69 66 74 2d 6a 69 73 |al-map-s|hift-jis|
|00002710| 20 67 6c 6f 62 61 6c 2d | 6d 61 70 20 6c 6f 63 61 | global-|map loca|
|00002720| 6c 2d 6d 61 70 2d 73 68 | 69 66 74 2d 6a 69 73 20 |l-map-sh|ift-jis |
|00002730| 6d 61 6b 65 2d 6b 65 79 | 6d 61 70 20 6b 65 79 62 |make-key|map keyb|
|00002740| 6f 61 72 64 2d 64 65 66 | 69 6e 65 2d 6c 6f 63 61 |oard-def|ine-loca|
|00002750| 6c 2d 6d 61 70 2d 73 68 | 69 66 74 2d 6a 69 73 20 |l-map-sh|ift-jis |
|00002760| 64 65 66 69 6e 65 2d 6b | 65 79 20 22 07 22 20 6d |define-k|ey "." m|
|00002770| 75 6c 65 2d 6b 65 79 62 | 6f 61 72 64 2d 71 75 69 |ule-keyb|oard-qui|
|00002780| 74 20 6e 69 6c 20 5f 6b | 65 79 62 6f 61 72 64 2d |t nil _k|eyboard-|
|00002790| 66 69 72 73 74 2d 62 79 | 74 65 5f 20 73 68 69 66 |first-by|te_ shif|
|000027a0| 74 2d 6a 69 73 20 6b 65 | 79 62 6f 61 72 64 2d 63 |t-jis ke|yboard-c|
|000027b0| 6f 64 69 6e 67 2d 73 79 | 73 74 65 6d 5d 20 34 5d |oding-sy|stem] 4]|
|000027c0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 73 65 6c |).(defal|ias 'sel|
|000027d0| 66 2d 69 6e 73 65 72 74 | 2d 73 68 69 66 74 2d 6a |f-insert|-shift-j|
|000027e0| 69 73 2d 6a 61 70 61 6e | 65 73 65 20 23 5b 6e 69 |is-japan|ese #[ni|
|000027f0| 6c 20 22 08 11 c2 20 13 | c4 c5 20 21 87 22 20 5b |l "... .|.. !." [|
|00002800| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 2d 63 68 61 |last-com|mand-cha|
|00002810| 72 20 5f 6b 65 79 62 6f | 61 72 64 2d 66 69 72 73 |r _keybo|ard-firs|
|00002820| 74 2d 62 79 74 65 5f 20 | 6b 65 79 62 6f 61 72 64 |t-byte_ |keyboard|
|00002830| 2d 63 75 72 72 65 6e 74 | 2d 6c 6f 63 61 6c 2d 6d |-current|-local-m|
|00002840| 61 70 20 5f 6b 65 79 62 | 6f 61 72 64 2d 73 61 76 |ap _keyb|oard-sav|
|00002850| 65 64 2d 6c 6f 63 61 6c | 2d 6d 61 70 5f 20 6b 65 |ed-local|-map_ ke|
|00002860| 79 62 6f 61 72 64 2d 75 | 73 65 2d 6c 6f 63 61 6c |yboard-u|se-local|
|00002870| 2d 6d 61 70 20 6b 65 79 | 62 6f 61 72 64 2d 6c 6f |-map key|board-lo|
|00002880| 63 61 6c 2d 6d 61 70 5d | 20 32 20 6e 69 6c 20 6e |cal-map]| 2 nil n|
|00002890| 69 6c 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |il]).(de|falias '|
|000028a0| 73 65 6c 66 2d 69 6e 73 | 65 72 74 2d 73 68 69 66 |self-ins|ert-shif|
|000028b0| 74 2d 6a 69 73 2d 6a 61 | 70 61 6e 65 73 65 32 20 |t-jis-ja|panese2 |
|000028c0| 23 5b 6e 69 6c 20 22 08 | ab 8c c1 08 5c 6e 5c 22 |#[nil ".|....\n\"|
|000028d0| 1b c4 0b 21 88 c5 10 29 | c6 0e 07 21 87 22 20 5b |...!...)|...!." [|
|000028e0| 5f 6b 65 79 62 6f 61 72 | 64 2d 66 69 72 73 74 2d |_keyboar|d-first-|
|000028f0| 62 79 74 65 5f 20 64 65 | 63 6f 64 65 2d 73 68 69 |byte_ de|code-shi|
|00002900| 66 74 2d 6a 69 73 2d 63 | 68 61 72 20 6c 61 73 74 |ft-jis-c|har last|
|00002910| 2d 63 6f 6d 6d 61 6e 64 | 2d 63 68 61 72 20 63 68 |-command|-char ch|
|00002920| 61 72 20 6b 65 79 62 6f | 61 72 64 2d 73 65 6c 66 |ar keybo|ard-self|
|00002930| 2d 69 6e 73 65 72 74 20 | 6e 69 6c 20 6b 65 79 62 |-insert |nil keyb|
|00002940| 6f 61 72 64 2d 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |oard-use|-local-m|
|00002950| 61 70 20 5f 6b 65 79 62 | 6f 61 72 64 2d 73 61 76 |ap _keyb|oard-sav|
|00002960| 65 64 2d 6c 6f 63 61 6c | 2d 6d 61 70 5f 5d 20 33 |ed-local|-map_] 3|
|00002970| 20 6e 69 6c 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 | nil nil|]).(defa|
|00002980| 6c 69 61 73 20 27 73 65 | 6c 66 2d 69 6e 73 65 72 |lias 'se|lf-inser|
|00002990| 74 2d 73 68 69 66 74 2d | 6a 69 73 2d 6b 61 6e 61 |t-shift-|jis-kana|
|000029a0| 20 23 5b 6e 69 6c 20 22 | c0 c1 c2 0b 5c 22 21 87 | #[nil "|....\"!.|
|000029b0| 22 20 5b 6b 65 79 62 6f | 61 72 64 2d 73 65 6c 66 |" [keybo|ard-self|
|000029c0| 2d 69 6e 73 65 72 74 20 | 6d 61 6b 65 2d 63 68 61 |-insert |make-cha|
|000029d0| 72 20 6a 61 70 61 6e 65 | 73 65 2d 6a 69 73 78 30 |r japane|se-jisx0|
|000029e0| 32 30 31 2d 6b 61 6e 61 | 20 6c 61 73 74 2d 63 6f |201-kana| last-co|
|000029f0| 6d 6d 61 6e 64 2d 63 68 | 61 72 5d 20 34 20 6e 69 |mmand-ch|ar] 4 ni|
|00002a00| 6c 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |l nil]).|(defalia|
|00002a10| 73 20 27 6b 65 79 62 6f | 61 72 64 2d 64 65 66 69 |s 'keybo|ard-defi|
|00002a20| 6e 65 2d 67 6c 6f 62 61 | 6c 2d 6d 61 70 2d 62 69 |ne-globa|l-map-bi|
|00002a30| 67 35 20 23 5b 28 6d 61 | 70 29 20 22 c0 19 c0 c2 |g5 #[(ma|p) "....|
|00002a40| 57 ad 98 0b 09 c4 1d 1e | 06 1b c7 0b c8 0e 06 21 |W.......|.......!|
|00002a50| 0d c9 24 88 2b 09 54 89 | 11 aa 64 29 87 22 20 5b |..$.+.T.|..d)." [|
|00002a60| 3f a1 20 69 20 3f fe 20 | 6d 61 70 20 73 65 6c 66 |?. i ?. |map self|
|00002a70| 2d 69 6e 73 65 72 74 2d | 62 69 67 35 2d 31 20 63 |-insert-|big5-1 c|
|00002a80| 6f 6d 6d 61 6e 64 20 6b | 65 79 20 64 65 66 69 6e |ommand k|ey defin|
|00002a90| 65 2d 6b 65 79 20 63 68 | 61 72 2d 74 6f 2d 73 74 |e-key ch|ar-to-st|
|00002aa0| 72 69 6e 67 20 74 5d 20 | 36 5d 29 0a 28 64 65 66 |ring t] |6]).(def|
|00002ab0| 61 6c 69 61 73 20 27 6b | 65 79 62 6f 61 72 64 2d |alias 'k|eyboard-|
|00002ac0| 64 65 66 69 6e 65 2d 6c | 6f 63 61 6c 2d 6d 61 70 |define-l|ocal-map|
|00002ad0| 2d 62 69 67 35 20 23 5b | 28 6d 61 70 29 20 22 c0 |-big5 #[|(map) ".|
|00002ae0| 19 c0 c2 57 ab 98 0b 09 | c4 1d 1e 06 1b c7 0b c8 |...W....|........|
|00002af0| 0e 06 21 0d c9 24 88 2b | 09 54 89 11 aa 64 ca 11 |..!..$.+|.T...d..|
|00002b00| ca cb 57 ad 98 0b 09 c4 | 1d 1e 06 1b c7 0b c8 0e |..W.....|........|
|00002b10| 06 21 0d c9 24 88 2b 09 | 54 89 11 aa 64 29 87 22 |.!..$.+.|T...d)."|
|00002b20| 20 5b 3f 5c 40 20 69 20 | 3f 5c 5e 3f 20 6d 61 70 | [?\@ i |?\^? map|
|00002b30| 20 73 65 6c 66 2d 69 6e | 73 65 72 74 2d 62 69 67 | self-in|sert-big|
|00002b40| 35 2d 32 20 63 6f 6d 6d | 61 6e 64 20 6b 65 79 20 |5-2 comm|and key |
|00002b50| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 68 61 72 2d |define-k|ey char-|
|00002b60| 74 6f 2d 73 74 72 69 6e | 67 20 74 20 3f a1 20 3f |to-strin|g t ?. ?|
|00002b70| ff 5d 20 36 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |.] 6]).(|defalias|
|00002b80| 20 27 73 65 74 2d 6b 65 | 79 62 6f 61 72 64 2d 63 | 'set-ke|yboard-c|
|00002b90| 6f 64 69 6e 67 2d 73 79 | 73 74 65 6d 2d 62 69 67 |oding-sy|stem-big|
|00002ba0| 35 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 88 c2 c3 21 |5 #[nil |"..!...!|
|00002bb0| 88 c4 0d 21 88 0e 06 ac | 90 c7 20 16 06 c8 0e 06 |...!....|.. .....|
|00002bc0| 21 88 c9 0e 06 ca cb 23 | 88 c3 16 0c cd 89 16 0e |!......#|........|
|00002bd0| 87 22 20 5b 72 65 71 75 | 69 72 65 20 63 68 69 6e |." [requ|ire chin|
|00002be0| 65 73 65 20 6b 65 79 62 | 6f 61 72 64 2d 73 65 74 |ese keyb|oard-set|
|00002bf0| 2d 69 6e 70 75 74 2d 6d | 6f 64 65 20 30 20 6b 65 |-input-m|ode 0 ke|
|00002c00| 79 62 6f 61 72 64 2d 64 | 65 66 69 6e 65 2d 67 6c |yboard-d|efine-gl|
|00002c10| 6f 62 61 6c 2d 6d 61 70 | 2d 62 69 67 35 20 67 6c |obal-map|-big5 gl|
|00002c20| 6f 62 61 6c 2d 6d 61 70 | 20 6c 6f 63 61 6c 2d 6d |obal-map| local-m|
|00002c30| 61 70 2d 62 69 67 35 20 | 6d 61 6b 65 2d 6b 65 79 |ap-big5 |make-key|
|00002c40| 6d 61 70 20 6b 65 79 62 | 6f 61 72 64 2d 64 65 66 |map keyb|oard-def|
|00002c50| 69 6e 65 2d 6c 6f 63 61 | 6c 2d 6d 61 70 2d 62 69 |ine-loca|l-map-bi|
|00002c60| 67 35 20 64 65 66 69 6e | 65 2d 6b 65 79 20 22 07 |g5 defin|e-key ".|
|00002c70| 22 20 6d 75 6c 65 2d 6b | 65 79 62 6f 61 72 64 2d |" mule-k|eyboard-|
|00002c80| 71 75 69 74 20 5f 6b 65 | 79 62 6f 61 72 64 2d 66 |quit _ke|yboard-f|
|00002c90| 69 72 73 74 2d 62 79 74 | 65 5f 20 62 69 67 35 20 |irst-byt|e_ big5 |
|00002ca0| 6b 65 79 62 6f 61 72 64 | 2d 63 6f 64 69 6e 67 2d |keyboard|-coding-|
|00002cb0| 73 79 73 74 65 6d 5d 20 | 34 5d 29 0a 28 64 65 66 |system] |4]).(def|
|00002cc0| 61 6c 69 61 73 20 27 73 | 65 6c 66 2d 69 6e 73 65 |alias 's|elf-inse|
|00002cd0| 72 74 2d 62 69 67 35 2d | 31 20 23 5b 6e 69 6c 20 |rt-big5-|1 #[nil |
|00002ce0| 22 08 11 c2 20 13 c4 c5 | 20 21 87 22 20 5b 6c 61 |"... ...| !." [la|
|00002cf0| 73 74 2d 63 6f 6d 6d 61 | 6e 64 2d 63 68 61 72 20 |st-comma|nd-char |
|00002d00| 5f 6b 65 79 62 6f 61 72 | 64 2d 66 69 72 73 74 2d |_keyboar|d-first-|
|00002d10| 62 79 74 65 5f 20 6b 65 | 79 62 6f 61 72 64 2d 63 |byte_ ke|yboard-c|
|00002d20| 75 72 72 65 6e 74 2d 6c | 6f 63 61 6c 2d 6d 61 70 |urrent-l|ocal-map|
|00002d30| 20 5f 6b 65 79 62 6f 61 | 72 64 2d 73 61 76 65 64 | _keyboa|rd-saved|
|00002d40| 2d 6c 6f 63 61 6c 2d 6d | 61 70 5f 20 6b 65 79 62 |-local-m|ap_ keyb|
|00002d50| 6f 61 72 64 2d 75 73 65 | 2d 6c 6f 63 61 6c 2d 6d |oard-use|-local-m|
|00002d60| 61 70 20 6b 65 79 62 6f | 61 72 64 2d 6c 6f 63 61 |ap keybo|ard-loca|
|00002d70| 6c 2d 6d 61 70 5d 20 32 | 20 6e 69 6c 20 6e 69 6c |l-map] 2| nil nil|
|00002d80| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 73 65 |]).(defa|lias 'se|
|00002d90| 6c 66 2d 69 6e 73 65 72 | 74 2d 62 69 67 35 2d 32 |lf-inser|t-big5-2|
|00002da0| 20 23 5b 6e 69 6c 20 22 | 08 ab 8a c1 c2 08 0b c4 | #[nil "|........|
|00002db0| 23 21 88 c5 10 c6 0e 07 | 21 87 22 20 5b 5f 6b 65 |#!......|!." [_ke|
|00002dc0| 79 62 6f 61 72 64 2d 66 | 69 72 73 74 2d 62 79 74 |yboard-f|irst-byt|
|00002dd0| 65 5f 20 6b 65 79 62 6f | 61 72 64 2d 73 65 6c 66 |e_ keybo|ard-self|
|00002de0| 2d 69 6e 73 65 72 74 20 | 64 65 63 6f 64 65 2d 62 |-insert |decode-b|
|00002df0| 69 67 35 2d 63 68 61 72 | 20 6c 61 73 74 2d 63 6f |ig5-char| last-co|
|00002e00| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 63 68 61 72 61 |mmand-ch|ar chara|
|00002e10| 63 74 65 72 20 6e 69 6c | 20 6b 65 79 62 6f 61 72 |cter nil| keyboar|
|00002e20| 64 2d 75 73 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |d-use-lo|cal-map |
|00002e30| 5f 6b 65 79 62 6f 61 72 | 64 2d 73 61 76 65 64 2d |_keyboar|d-saved-|
|00002e40| 6c 6f 63 61 6c 2d 6d 61 | 70 5f 5d 20 35 20 6e 69 |local-ma|p_] 5 ni|
|00002e50| 6c 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |l nil]).|(defalia|
|00002e60| 73 20 27 63 68 65 63 6b | 2d 61 75 74 6f 2d 66 69 |s 'check|-auto-fi|
|00002e70| 6c 6c 20 23 5b 6e 69 6c | 20 22 08 ad 87 69 09 56 |ll #[nil| "...i.V|
|00002e80| ad 82 08 20 87 22 20 5b | 61 75 74 6f 2d 66 69 6c |... ." [|auto-fil|
|00002e90| 6c 2d 66 75 6e 63 74 69 | 6f 6e 20 66 69 6c 6c 2d |l-functi|on fill-|
|00002ea0| 63 6f 6c 75 6d 6e 5d 20 | 32 5d 29 0a |column] |2]). |
+--------+-------------------------+-------------------------+--------+--------+
